home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 November / Ahoy_Magazine_88-11_1988_Double_L.d64 / Window Fill (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  806b  |  25 lines
  1. 100 rem ** window fill for the c-64 **
  2. 110 fora=49152to49321:readb:c=c+b:pokea,b:next
  3. 120 ifc<>20246thenprint"error.":end
  4. 130 rem
  5. 140 data 76,11,192,32,0,0,10,10,0,0,0
  6. 150 data 173,4,192,201,40,176,28,173
  7. 160 data 5,192,201,25,176,21,173,6,192
  8. 170 data 240,16,173,7,192,240,11,24,173
  9. 180 data 4,192,109,6,192,201,41,144,3
  10. 190 data 76,72,178,24,173,5,192,109,7
  11. 200 data 192,201,26,176,242,173,136,2
  12. 210 data 133,254,173,4,192,133,253,173,7
  13. 220 data 192,141,8,192,56,169,40,237,6
  14. 230 data 192,141,9,192,174,5,192,224,0
  15. 240 data 240,13,169,40,141,10,192,32
  16. 250 data 147,192,202,224,0,208,248,169
  17. 260 data 1,141,10,192,174,6,192,32,162
  18. 270 data 192,32,147,192,202,224,0,208
  19. 280 data 245,206,8,192,173,8,192,201,0
  20. 290 data 208,1,96,173,9,192,141,10,192
  21. 300 data 32,147,192,76,105,192,24,165
  22. 310 data 253,109,10,192,133,253,165,254
  23. 320 data 105,0,133,254,96,160,0,173,3
  24. 330 data 192,145,253,96
  25.